www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_chk_add_kaozhan.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->






<%
AJAXshowLoader()


%>



<%
	
if qx_if_max=0 then


response.redirect "../D_suodinguser.asp"
end if

	
	
	
biao="[ND_kz_items]"




err1=0

if request("kzname")="" then
err1=1
%>
<script language="javascript">
alert("请填写项目名称");
history.go(-1);

</script>



<%
end if

if request("mulu")="" then
err1=1
%>
<script language="javascript">
alert("请填写存放到哪个目录");
history.go(-1);

</script>



<%
end if

Dim regEx
Set regEx = New RegExp ' 建立正则表达式。 
regEx.Pattern = "^([^(\/\\\.)]+(\/|)){1,}$|^[^(\/\\\.)]+$" ' 设置模式。 
regEx.IgnoreCase = False ' 设置是否区分大小写。 
retVal = regEx.Test(trim(request("mulu"))) ' 执行搜索测试。 




If retVal<>true Then 

err1=1
%>
<script language="javascript">
alert("存放目录 格式不对，或含.号, 示范格式:aaa1或aaa1/或aaa1/2222");
history.go(-1);

</script>



<%
end if


if request("urla")="" then
err1=1
%>
<script language="javascript">
alert("从哪个网址开始拷站 不能为空");
history.go(-1);

</script>



<%
end if




weburl=replace(request("urla"),"\","/")

weburl=trim(weburl)
weburl3=weburl
if lcase(left(weburl,7))<>"http://" then
weburl="http://"&weburl
end if


fin_posaa=-123

for iiaappss=8 to len(weburl)
if mid(weburl,iiaappss,1)="/" then
fin_posaa=iiaappss
exit for 
end if
next


if fin_posaa<>-123 then
weburl2=mid(weburl,1,fin_posaa-1)
webpagef=mid(weburl,fin_posaa,len(weburl)-fin_posaa+1)
else
webpagef="/"
weburl2=weburl
end if

aspaaaa=""
if instr(1,webpagef,"/",1)<>0 and instrrev(webpagef,"/")+1<=len(webpagef) then
aspaaaa=mid(webpagef,instrrev(webpagef,"/")+1,len(webpagef)-(instrrev(webpagef,"/")+1)+1)
end if


if instrrev(webpagef,"/")=len(webpagef) or instr(1,aspaaaa,".",1)=0 then

err1=1
%>
<script language="javascript">
alert("从哪个网址开始拷站 里必须输入一个带网页页面地址的网址，\n比如http://www.1112233.com后带11.htm或11.asp?a=1或11.aspx?a=1或....这样的后缀的，而不是纯http://www.1112233.com，后面要带页面地址，可以不是首页，可以是其他页，\n\n如果指定的网页打开后会自动跳转到另一网页，则要填此跳转后的网页的地址，\n如http://www.1122333.com/index.asp,打开http://www.1122333.com/index.asp后自动跳转到http://www.1122333.com/web/index.asp,则要填http://www.1122333.com/web/index.asp才行");
history.go(-1);

</script>



<%
end if

if instr(1,request("urla"),"http://",1)=0 then

err1=1
%>
<script language="javascript">
alert("从哪个网址开始拷站 里必须输入一个带http://的页面地址");
history.go(-1);

</script>



<%
end if






Function ChkNumeric(CHECK_ID)
		IF CHECK_ID = "1" or CHECK_ID =1 Then
			ChkNumeric = "1"
		Else
			ChkNumeric = "0"
		End If
		
		if CHECK_ID ="" then
		
		ChkNumeric = "0"
		end if
		
	End Function

Function ChkFormStr(ByVal str)
		Dim fString
		fString = str
		If IsNull(fString) Then
			ChkFormStr = ""
			Exit Function
		End If
		fString = Replace(fString, "'", "&#39;")
		fString = Replace(fString, Chr(34), "&quot;")
		fString = Replace(fString, Chr(13), "")
		fString = Replace(fString, Chr(10), "")
		fString = Replace(fString, Chr(9), "")
		fString = Replace(fString, ">", "&gt;")
		fString = Replace(fString, "<", "&lt;")
		fString = Replace(fString, "&nbsp;", " ")
		ChkFormStr = fString
	End Function


 Function Formatime(ByVal datime)
	datime = Trim(Replace(Trim(datime), vbNewLine, ""))
	If Not IsDate(datime) Then
		Formatime = Now()
		Exit Function
	End If
	If Len(datime) < 11 Then
		Formatime = CDate(datime & " " & FormatDateTime(Now, 3))
	Else
		Formatime = CDate(datime)
	End If
	Exit Function
End Function






if err1=0 then

  
set rs=server.CreateObject("adodb.recordset")


  
  
rs.open "select * from "&biao&"",conn,1,3
rs.addnew


rs("xiangmu_name")=trim(request("kzname"))


rs("to_forder")=request("mulu")

rs("kaozhan_url")=request("urla")

rs("bianma")=request("bmsz")

rs.update

%>
<script language="javascript">
alert("添加成功");
self.location="D_admin_kaozhan.asp";

</script>



<%



end if



%>



<%
AJAXcloseLoader()
%>